home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d6 / glazer.arc / PAYBACK.BAS < prev    next >
BASIC Source File  |  1988-10-07  |  986b  |  24 lines
  1. 100 'Payback Period ("PAYBACK")
  2. 110 CLS
  3. 120 COLOR 0,15 : PRINT "Payback Period" : COLOR 15,0
  4. 130 DEFDBL A-Z
  5. 140 PRINT:PRINT
  6. 150 PRINT "Do not enter dollar signs or commas"
  7. 160 PRINT
  8. 170 '     Let user enter data
  9. 180 INPUT "Initial investment: ", PV
  10. 190 INPUT "Return each period: ", PMT
  11. 200 INPUT "Number of returns per year: ", NPY
  12. 210 INPUT "Annual interest rate (in percent): ", AR
  13. 220 '     Convert annual interest rate to periodic one
  14. 230 PR = (1 + AR / 100) ^ (1 / NPY) - 1
  15. 240 '     Check if payback possible
  16. 250 IF PMT < PV * PR  THEN PRINT " ** Error - No payback **" : END
  17. 260 '     Find payback period
  18. 270 NPERIODS = LOG (1 - PR * PV / PMT)
  19. 280 IF PR <> 0  THEN NPERIODS  =  -NPERIODS / (LOG (1 + PR) )                                   ELSE NPERIODS = PV / PMT
  20. 290 IF (NPERIODS - INT (NPERIODS) ) < .001  THEN NPERIODS = INT (NPERIODS)              ELSE NPERIODS = INT(NPERIODS) + 1
  21. 300 PRINT
  22. 310 PRINT "Payback after "; NPERIODS; " periods"
  23. 320 END
  24.